home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / hexa.lha / hexa / htob.mi < prev    next >
Text File  |  1992-08-18  |  695b  |  36 lines
  1. MODULE htob;
  2.  
  3. (* convert ascii hexadecimal files into binary *)
  4.  
  5. FROM StdIO IMPORT ReadC, EndOfFile, WriteC, CloseIO;
  6.  
  7. VAR ch        : CHAR;
  8.     value    : ARRAY ['0'..'F'] OF CARDINAL;
  9.  
  10. BEGIN
  11.    value ['0'] := 0;
  12.    value ['1'] := 1;
  13.    value ['2'] := 2;
  14.    value ['3'] := 3;
  15.    value ['4'] := 4;
  16.    value ['5'] := 5;
  17.    value ['6'] := 6;
  18.    value ['7'] := 7;
  19.    value ['8'] := 8;
  20.    value ['9'] := 9;
  21.    value ['A'] := 10;
  22.    value ['B'] := 11;
  23.    value ['C'] := 12;
  24.    value ['D'] := 13;
  25.    value ['E'] := 14;
  26.    value ['F'] := 15;
  27.  
  28.    WHILE NOT EndOfFile () DO
  29.       ch := ReadC ();
  30.       IF ch # 12C THEN
  31.      WriteC (CHR (value [ch] * 16 + value [ReadC ()]));
  32.       END;
  33.    END;
  34.    CloseIO;
  35. END htob.
  36.